unit uMultiSelect;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.CheckLst, Vcl.Buttons,
  Vcl.ComCtrls, Vcl.ExtCtrls;

type
  TfrmMultiSelect = class(TForm)
    clbChoices: TCheckListBox;
    sb: TStatusBar;
    Panel1: TPanel;
    btnOk: TBitBtn;
    cb: TBitBtn;
    Splitter1: TSplitter;
    Panel2: TPanel;
    stDescription: TStaticText;
    procedure btnOkClick(Sender: TObject);
    procedure cbClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMultiSelect: TfrmMultiSelect;

implementation

{$R *.dfm}

uses uMain;

procedure TfrmMultiSelect.btnOkClick(Sender: TObject);
begin
  frmMain.Next;
end;

procedure TfrmMultiSelect.cbClick(Sender: TObject);
begin
  Halt;
end;

procedure TfrmMultiSelect.FormCreate(Sender: TObject);
begin
  EnableMenuItem( GetSystemMenu( Self.Handle, False ),SC_CLOSE, MF_BYCOMMAND or MF_GRAYED );

end;

procedure TfrmMultiSelect.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = VK_F4) and (ssAlt in Shift) then
  Key:=0;
end;

end.
